
************************************************************************************************************
**#							TABLE IA-14 - FIRM DISCLOSURE AND INDICATOR VARIABLES
************************************************************************************************************

capture cd "/Users/joshw/CEO Pay Ratio/Analysis/"
use "Data/Temp/dataset_main.dta", clear

********************
*Spin Indicator
********************
est clear
eststo: xi: reghdfe spin_ind pr_quint_5 pr_quint_1 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: reghdfe spin_ind pr_quint_5 pr_quint_1 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
eststo: xi: reghdfe spin_ind ln_upr ln_epr size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: reghdfe spin_ind ln_upr ln_epr size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
esttab using "Output/Tables/RF/TIA14_firm_spin_indicator.csv", b(3) ar2 varwidth(25) title("Spin Indicator")  order(pr_quint_5 pr_quint_1 ln_upr ln_epr size mtb roa io cash lev salesg_w tsr union rd) star(* 0.10 ** 0.05  *** 0.01 ) drop( _cons) replace
       
********************
*Explain Indicator
********************
est clear
eststo: xi: reghdfe explain_ind pr_quint_5 pr_quint_1 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: reghdfe explain_ind pr_quint_5 pr_quint_1 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
eststo: xi: reghdfe explain_ind ln_upr ln_epr size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: reghdfe explain_ind ln_upr ln_epr size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
esttab using "Output/Tables/RF/TIA14_firm_explain_indicator.csv", b(3) ar2 varwidth(25) title("Explain Indicator")  order(pr_quint_5 pr_quint_1 ln_upr ln_epr size mtb roa io cash lev salesg_w tsr union rd) star(* 0.10 ** 0.05  *** 0.01 ) drop( _cons) replace
		
*****************************
*Supplemental Ratio Indicator
*****************************
est clear
eststo: xi: reghdfe suppl_ind pr_quint_5 pr_quint_1 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: reghdfe suppl_ind pr_quint_5 pr_quint_1 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
eststo: xi: reghdfe suppl_ind ln_upr ln_epr size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: reghdfe suppl_ind ln_upr ln_epr size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
esttab using "Output/Tables/RF/TIA14_firm_supplemental_indicator.csv", b(3) ar2 varwidth(25) title("Supplemental Ratio Indicator")  order(pr_quint_5 pr_quint_1 ln_upr ln_epr size mtb roa io cash lev salesg_w tsr union rd) star(* 0.10 ** 0.05  *** 0.01 ) drop(  _cons) replace

********************
*Tout Indicator
********************
est clear
eststo: xi: reghdfe tout_ind pr_quint_5 pr_quint_1 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: reghdfe tout_ind pr_quint_5 pr_quint_1 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
eststo: xi: reghdfe tout_ind ln_upr ln_epr size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: reghdfe tout_ind ln_upr ln_epr size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
esttab using "Output/Tables/RF/TIA14_firm_tout_indicator.csv", b(3) ar2 varwidth(25) title("Tout Indicator")  order(pr_quint_5 pr_quint_1 ln_upr ln_epr size mtb roa io cash lev salesg_w tsr union rd) star(* 0.10 ** 0.05  *** 0.01 ) drop(  _cons) replace
